Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/PASCAL/1463.ZIP/DRAW-2D.ARC/REDRAW.PAS

Pascal/Delphi Source File | 1986-11-03 | 896b | 31 lines

PROCEDURE REDRAW;
   VAR
     K:INTEGER;
   BEGIN
     CLS;
     STATUS1;
     STATUS2;
     MENU(LEV);
     FOR K := 1 TO OBJPTR-1 DO
         WITH DRAWARY[K] DO
          BEGIN
            CASE OBJTYP OF
            1: BEGIN                          (* POINT *)
                 GRMOVE(X1,Y1,0);
                 POINT(XPREV,YPREV,HRCOLOR);
               END;
            2: BEGIN                          (* LINE *)
                 GRMOVE(X1,Y1,0);
                 GRDRAW(X2,Y2,HRCOLOR);
               END;
            3: BEGIN                          (* BOX *)
                 GRMOVE(X1,Y1,0);
                 GRBOX(X2,Y2,X3,Y3,HRCOLOR);
               END;
            4: BEGIN                          (* CIRCLE *)
                 GRCIRCLE(X1,Y1,X2,HRCOLOR);
               END;
             END; (* CASE *)
           END; (*WITH*)
    END; (*PROC*)